﻿Public Class frmEntretenimento

#Region "Funções"

    Private Sub HabilitarTela(ByVal booHabilitar As Boolean)

        FuncoesPrincipais.HabilitarTela(booHabilitar, Me)

    End Sub

#End Region

#Region "Eventos"

    Private Sub frmEntretenimento_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        FuncoesPrincipais.HabilitarTela(True, frmPrincipal)

    End Sub

    Private Sub btnTeatro_Click(sender As System.Object, e As System.EventArgs) Handles btnTeatro.Click
        HabilitarTela(False)
        Teatro.Show()
    End Sub

    Private Sub btnFilmes_Click(sender As System.Object, e As System.EventArgs) Handles btnFilmes.Click
        HabilitarTela(False)
        Filmes.Show()
    End Sub

    Private Sub btnConcertos_Click(sender As System.Object, e As System.EventArgs) Handles btnConcertos.Click
        HabilitarTela(False)
        Shows.Show()
    End Sub

    Private Sub btnEventos_Click(sender As System.Object, e As System.EventArgs) Handles btnEventos.Click
        HabilitarTela(False)
        Eventos.Show()
    End Sub

    Private Sub btnRestaurantes_Click(sender As System.Object, e As System.EventArgs) Handles btnRestaurantes.Click
        HabilitarTela(False)
        Restaurantes.Show()
    End Sub

    Private Sub btnBaladas_Click(sender As System.Object, e As System.EventArgs) Handles btnBaladas.Click
        HabilitarTela(False)
        Baladas.Show()
    End Sub

    Private Sub btnParques_Click(sender As System.Object, e As System.EventArgs) Handles btnParques.Click
        HabilitarTela(False)
        Parques.Show()
    End Sub

    Private Sub btnOutros_Click(sender As System.Object, e As System.EventArgs) Handles btnOutros.Click
        HabilitarTela(False)
        Outros_Entr.Show()
    End Sub

#End Region

End Class